home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / ERAS / ERAS.CST / 00083_Script_goTextPopup < prev    next >
Text File  |  1997-07-24  |  507b  |  16 lines
  1. on mouseUp
  2.   cursor 4
  3.   global gTextIndex, gScrollText
  4.   set theDelimiter = the itemDelimiter
  5.   set the itemDelimiter = "_"
  6.   set theSubj = item 2 of the frameLabel
  7.   set theIndexLabel = "d_"&theSubj
  8.   set theTextMemberName = "txt_fact_" & char 5 to 6 of the movie 
  9.   set the scrolltop of member theTextMemberName to getAprop(gTextIndex, theIndexLabel)
  10.   set the itemdelimiter = theDelimiter
  11.   set the visible of sprite 16 to 0
  12.   go next
  13.   set the visible of sprite 16 to 1
  14.   cursor -1
  15.   
  16. end